#!/usr/bin/perl
require "config.cgi";
use CGI;
$cgi = new CGI;
$acao = $cgi->param("acao");
print "Content-type: text/html\n\n";
print qq~
<title>$site_titulo</title>
<style type="text/css">
a:visited {color: #000000; text-decoration: none}
a:active {color: #000000; text-decoration: none}
a:link {color: #000000; text-decoration: none}
A:hover {color: #000000; text-decoration: underline}
</style>
~;
##########################
if($acao eq ""){
print qq~
<form method="POST">
<center><b>Senha da Admin</b><br>
<input type="pasword" name="senha"><br>
<input type="hidden" name="acao" value="admin">
<input type="submit" value=" OK ">
</center></form>
~;
}
##########################
if($acao eq "admin"){
$senha = $cgi->param("senha");
	if($senha eq $site_senha){
	print qq~
<base target="meio">
<center><b>$site_titulo >> Administração</b><br>
<a href="?acao=meio">Inicial</a> - <a href="?acao=cad">Cadastrar um e-mail</a> - <a href="?acao=lista">Listar/Excluir e-mails</a> - <a href="?acao=html">Codigo HTML</a> - <a href="?acao=envia">Enviar Newsletter</a><br>
<IFRAME name="meio" frameborder="0" scrolling="auto" width="500" height="300" SRC="?acao=meio" align="center"></IFRAME></center>
	~;
	}else{
	print "<center><br><br><b>$site_titulo >> Administração</b><br>Senha invalida!</center>";
	}
}
##########################
if($acao eq "meio"){
print "<br><br><center>Por favor, utilize o menu acima!</center>";
}
##########################
if($acao eq "cad"){
print qq~
<form method="POST">
E-mail: <input type="text" name="email">
<input type="hidden" name="acao" value="salvar">
<input type="hidden" name="tipo" value="1">
<input type="submit" value="OK">
</form>
~;
}
##########################
if($acao eq "envia"){
print qq~
<form method="POST">
  <p>Assunto: <input type="text" name="titulo" size="37"></p>
  <p>Mensagem: <textarea rows="7" name="msg" cols="29"></textarea></p>
  <p><input type="submit" value="Enviar"></p>
  <input type="hidden" name="acao" value="envia2">
</form>
~;
}
##########################
if($acao eq "envia2"){
$assunto = $cgi->param("assunto");
$msg = $cgi->param("msg");
open(NEWS,"emails.dat");
@news=<NEWS>;
close(NEWS);
foreach (@news){ chomp;
($mail,$teste) = split(/\|/,$_);
open(MAIL,"|$mailprog -t") |
print MAIL "To: $mail\n";
print MAIL "From: $site_email\n";
print MAIL "Subject: $assunto\n\n";
print MAIL "$msg\n";
close(MAIL);
}
print "<center><br><br>E-mails foram enviados com sucesso!<br>";
}
##########################
if($acao eq "html"){
print qq~
Apenas copie e cole o seguinte codigo html em seu site:<br>
<textarea rows="6" name="html" cols="42"><form method="POST" action="$site_url/index.cgi">
<b>NewsLetter</b><br>
E-mail: <input type="text" name="email" size="20"><br>
Adicionar<input type="radio" value="1" checked name="tipo"> | 
<input type="radio" name="tipo" value="2">Remover
<input type="hidden" name="acao" value="salvar">
<input type="hidden" name="tipo" value="1"><br>
<input type="submit" value="Enviar >>">
</form></textarea>
~;
}
##########################
if($acao eq "lista"){
open(NEWS,"emails.dat");
@news=<NEWS>;
close(NEWS);
foreach (@news){ chomp;
($mail,$teste) = split(/\|/,$_);
print qq~
$mail (<a href="?acao=salvar&tipo=2&email=$mail">Excluir</a>)<br>
~;
}
}
##########################
if($acao eq "salvar"){
$email = $cgi->param("email");
$tipo = $cgi->param("tipo");
	if($tipo eq "1"){
	open(NEWS,">>emails.dat");
	print NEWS "$email|0\n";
	close(NEWS);
	print "O email <b>$email</b> foi adcionado com sucesso!";
	}else{
	open(NEWS,"emails.dat");
	@news=<NEWS>;
	close(NEWS);
	$i="0";
	foreach (@news){ chomp;
	($mail,$teste) = split(/\|/,$_);
		if($mail ne $email){
		push(@bd,"$mail|$teste");
		$i++; }else{ next; }
	}
	if($i eq "0"){
	print "Não existe esse e-mail cadastrado em nosso lista!";
	}else{
	open(NEWS,">emails.dat");
	foreach $linha(@bd){
	print NEWS "$linha\n";
	} close(NEWS);
	print "E-mail deletado com sucesso de nosso lista!";
	}
	}
}